home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / HANGMAN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  93 lines
  1. 10  TEXT : HOME 
  2. 15  PRINT "        BY THE<CTRL-J><CTRL-J><CTRL-J>  S <CTRL-J>E <CTRL-J>E <CTRL-J>M <CTRL-J>A <CTRL-J>N <CTRL-J>S"
  3. 17  PRINT : PRINT 
  4. 20  PRINT "**************";: FLASH : PRINT "HANGMAN";: NORMAL : PRINT "**************": PRINT 
  5. 25  FOR I = 1 TO 2000: NEXT 
  6. 30  REM  IN FP ONLY FOR DATA (CAN11T BE POSITIONED VIA * PG141)
  7. 35  FOR I = 1 TO  LEN(A$):P$ = P$ + CHR$(95): NEXT 
  8. 40  DIM W$(4)
  9. 45  INPUT "INSTRUCTIONS?";A$: IF  LEFT$(A$,1) = "N"  THEN 100
  10. 50  PRINT : PRINT "HANGMAN IS A WORD GUESSING GAME"
  11. 55  PRINT "SIMPLY FOLLOW APPLE II'S INSTRUCTIONS"
  12. 60  PRINT "WHEN IT ASKS FOR LETTER (OR THE WHOLE)"
  13. 65  PRINT "WORD IF YOU KNOW IT) YOU HAVE AN"
  14. 70  PRINT "OPTION OF DOING THAT OR RETURNING"
  15. 75  PRINT "ONE OF THESE COMMANDS: "
  16. 80  INVERSE : PRINT "'LETTERS'";: NORMAL : PRINT "-APPLE II PRINTS USED LETTERS"
  17. 85  INVERSE : PRINT "'QUIT'";: NORMAL : PRINT "-ENDS THE GAME"
  18. 90  INVERSE : PRINT "'GIVE'";: NORMAL : PRINT "-PRINTS THE CURRENT WORD": PRINT 
  19. 95 M = 0
  20. 100  INPUT "ENGLISH OR FRENCH (E OR F)?";A$
  21. 105  INPUT "LEVEL OF PLAY (1-4)";A: IF A <1  OR A >4  THEN 105
  22. 110  GR : HOME : REM INITIALIZE GRAPHICS
  23. 115  IF A$ = "E"  THEN 125: REM CHECK IF ENGLISH
  24. 120  FOR I = 1 TO 25: READ W$: NEXT 
  25. 125  IF A >1  THEN  FOR I = A TO 2  STEP  -1: GOSUB 460: NEXT 
  26. 130 L$ = "": GOSUB 460: REM READ DATA
  27. 135 A$ = W$( INT( RND(1) *5)):P$ = ""
  28. 140  FOR I = 1 TO  LEN(A$):P$ = P$ + CHR$(95): NEXT 
  29. 145  PRINT "THIS IS THE WORD ";: INVERSE : PRINT P$: NORMAL 
  30. 150  INPUT "TYPE EITHER ONE LETTER OR THE WHOLE WORD";G$
  31. 155  IF  LEN(G$) = 1  THEN 165
  32. 160 T = 0: GOTO 425
  33. 165  FOR I = 1 TO  LEN(L$): IF  MID$ (L$,I,1) = G$  THEN 175
  34. 170  NEXT : GOTO 180
  35. 175  PRINT "YOU ALREADY GUESSED THAT LETTER": GOTO 150
  36. 180 T = 0: FOR I = 1 TO  LEN(A$): IF  MID$ (A$,I,1) < >G$  THEN 195
  37. 185 T = 1: IF I = 1  THEN P$ = G$ + MID$ (P$,2): GOTO 195
  38. 190 P$ =  LEFT$(P$,I -1) +G$ + MID$ (P$,I +1)
  39. 195  NEXT :L$ = L$ +G$: IF T = 0  THEN 210
  40. 200  GOTO 420
  41. 205  REM PLOTTING FOR SCAFFOLD,HAT,FACE,NOSE,EARS,BODY,LARM,RARM,LLEG,RLEG
  42. 210 M = M +1: COLOR=  INT( RND(1) *2 +1): HLIN 2,18 AT 2: HLIN 2,18 AT 3: VLIN 2,39 AT 2: VLIN 2,39 AT 3: HLIN 2,24 AT 38: HLIN 1,25 AT 39: HLIN 4,5 AT 10: HLIN 5,6 AT 9: HLIN 6,7 AT 8: HLIN 7,8 AT 7: HLIN 8,9 AT 6: HLIN 9,10 AT 5
  43. 215  PLOT 4,11: HLIN 10,11 AT 4: COLOR= 8: VLIN 2,5 AT 17
  44. 220  ON M GOTO 315,230,240,250,260
  45. 225  GOTO 270
  46. 230  COLOR=  INT( RND(1) *3 +3): HLIN 14,20 AT 8: PLOT 14,7: PLOT 20,7: HLIN 16,18 AT 7: HLIN 16,18 AT 6
  47. 235  GOTO 275
  48. 240  COLOR= 15: HLIN 15,19 AT 9: HLIN 14,20 AT 10: HLIN 15,19 AT 11: HLIN 16,18 AT 12: COLOR= 8: HLIN 16,18 AT 13
  49. 245  GOTO 275
  50. 250  COLOR=  INT( RND(1) *3 +6): PLOT 16,9: PLOT 18,9: COLOR=  INT( RND(1) *3 +8): PLOT 17,10
  51. 255  GOTO 275
  52. 260  COLOR= 1: HLIN 16,18 AT 11: COLOR=  INT( RND(1) *3 +10): PLOT 14,10: PLOT 20,10
  53. 265  GOTO 275
  54. 270  COLOR=  INT( RND(1) *3 +12): VLIN 14,22 AT 15: VLIN 14,22 AT 16: VLIN 14,22 AT 17: VLIN 14,22 AT 18: VLIN 14,22 AT 19: PLOT 14,15: PLOT 14,16: PLOT 20,15: PLOT 20,16: PLOT 14,22: PLOT 20,22: PLOT 14,14: PLOT 20,14
  55. 275  IF M <7  THEN 315
  56. 280  COLOR=  INT( RND(1) *3): PLOT 17,15: PLOT 17,17: PLOT 17,19: COLOR= 3: HLIN 15,19 AT 21
  57. 285  ON M -6 GOTO 315,290,295,300,310
  58. 290  COLOR=  INT( RND(1) *3 +8): VLIN 14,20 AT 21: HLIN 18,21 AT 19: HLIN 18,21 AT 20: PLOT 18,18: VLIN 15,19 AT 22: GOTO 315
  59. 295  COLOR=  INT( RND(1) *3 +8): VLIN 14,20 AT 13: VLIN 15,19 AT 12: HLIN 14,16 AT 19: HLIN 14,16 AT 20: PLOT 16,18: GOTO 315
  60. 300  COLOR=  INT( RND(1) *3 +5): VLIN 23,32 AT 16: VLIN 23,31 AT 15: VLIN 23,32 AT 14: VLIN 31,32 AT 13: VLIN 31,32 AT 12: GOTO 315
  61. 305  COLOR=  INT( RND(1) *3 +4): VLIN 23,32 AT 18: VLIN 23,32 AT 19: VLIN 23,32 AT 20: VLIN 31,32 AT 21: VLIN 31,32 AT 22: PLOT 21,27
  62. 310  COLOR=  INT( RND(1) *3 +5): VLIN 23,32 AT 18: VLIN 23,31 AT 19: VLIN 23,32 AT 20: VLIN 31,32 AT 21: VLIN 31,32 AT 22
  63. 315  IF M < >1  AND M < >6  AND M < >7  THEN 325
  64. 320 P = P +1
  65. 325  IF M <11  THEN 200: REM CHECK IF PARTS NUMBER 11 IF SO HE IS HUNG
  66. 330  PRINT "YOU HAVE JUST BEEN HUNG.": GOTO 340
  67. 335  PRINT "YOU GOT IT!!":D = D +1
  68. 340 M = 0: PRINT "THE WORD WAS ";A$: GOTO 345
  69. 345  INPUT "WOULD YOU LIKE TO CONTINUE?  ";A$:Z = Z +1
  70. 350  GR : REM CLEARS SCREEN
  71. 355  IF  LEFT$(A$,1) = "Y"  AND Z <6 -L  THEN 130
  72. 360  TEXT : HOME : PRINT "FINI": END 
  73. 365  REM  WORDS FOLLOW: CAN BE CHANGED EASILY
  74. 370  DATA "CORRESPOND","LISTEN","AMUSE","ERASE","FANTASTIC"
  75. 375  DATA "HIEST","FIRMLY","OUTRAGEOUS","WATERMELON","AVENUE"
  76. 380  DATA "DENSITY","SAILING","REPETITIVE","DERIVATIVE","INKLING"
  77. 385  DATA "SUPOSITION","INQUISITION","HERBIVORE","ANTARCTIC","PANGEA"
  78. 390  DATA  "LYNX","SUCCINCTLY","HILARIOUS","LYRE","EQUINOX"
  79. 395  DATA "ETRE","MADAME","OUI","MAISON","TOUJOURS"
  80. 400  DATA "ALORS","JOUER","BLEU","ENCHANTE","AVONS"
  81. 405  DATA "DANSER","LIVRE","COUTEAU","BIENTOT","ECOLE"
  82. 410  DATA "SAVOIR","GENTIMENT","BIENVENU","ENTENTE","SOLEIL"
  83. 415  DATA "ENCORE","LENTEMENT","BATEAU","LUMIERE","AINSI"
  84. 420 T = 1:G$ = P$
  85. 425  IF G$ = "QUIT"  THEN 360: GOTO 145
  86. 430  IF G$ = "GIVE"  THEN 330
  87. 435  PRINT : IF G$ = "LETTERS"  THEN  PRINT "YOU'VE GUESSED ";L$: GOTO 145
  88. 440  IF G$ < >A$  THEN 450
  89. 445  GOTO 335
  90. 450  IF T = 0  THEN  PRINT "NO THATS NOT THE WORD"
  91. 455  GOTO 145
  92. 460  READ W$(0),W$(1),W$(2),W$(3),W$(4): RETURN 
  93. 465  PRINT : IF G$ = "LETTERS"  THEN  PRINT "YOU'VE GUESSED ";L$: GOTO 145